#!/usr/bin/perl
$line="xxx dec<abcd>";
$line =~ s/\w<([^>]+)>/\U$1/g;
print $line."\n";


